perm filename XGP.SAI[1,BGB] blob
sn#082470 filedate 1974-01-18 generic text, type T, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
RECORD PAGE DESCRIPTION
00001 00001
00002 00002 BEGIN "XGP"
00004 ENDMK
⊗;
BEGIN "XGP"
DEFINE α="COMMENT";
INTEGER ARRAY BUF[0:33*1000+2];
INTEGER I;
α PLACE A PATTERN OF BITS;
BUF[0] ← '7777;
ARRBLT(BUF[1],BUF[0],33000);
BUF[33001]← '400000000000; α CUT PAPER;
BUF[33002]←0;
α PLACE AN XGP ROW CONTROL WORD IN EACH ROW;
α LINE INCREMENT=1, X-COL='400, WORD COUNT = '40;
FOR I←0 STEP 1 UNTIL 999 DO
BUF[I*33] ← '000104000040;
START_CODE "XGPOUT"
INTEGER ARG1,ARG2;
SETZM ARG2; α END OF DUMP COMMAND LIST IS ZERO;
MOVE BUF;SOS; α POINTER TO XGP BUFFER - 1;
HRLI -33003; α SIZE OF XGP BUFFER;
MOVEM ARG1;
'041000000000 1,'17; α INIT 1,17 DUMP MODE CHANNEL 1;
'704760000000; α SIXBIT/XGP/ DEVICE;
0;
JRST 4,; α HALT IF XGP NOT READY.;
'057000000000 1,ARG1; α OUT 1,ARG1 OUTPUT DUMP MODE;
JFCL;
'011000000000 1,; α RELEASE 1,;
END;
OUTSTR("END OF XGP"&13&10);
WHILE TRUE DO INCHRW;
END "XGP";